The PC-SIG Library 10

home *** CD-ROM | disk | FTP | other *** search

/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 02 / 8 / DISK0285.ZIP / ZPRINT.ASM < prev next >

Wrap

Assembly Source File | 1984-07-12 | 7KB | 273 lines

COMMENT * CLUBware (tm) ZPRINT prints a character string on the screen starting at the current cursor position. After the string is written to the screen the cursor position is updated to just after the string. Copyright 1984 Rayhawk Automation N.W. Inc P.O. Box 1427 Beaverton, Oregon 97075 Algorithm: 1) load type of crt display from 0000:463 2) load current position from 0000:0450 3) load count of characters to write 4) load string address 5) address the screen segment 6) move string to screen segment while synchronizing with horizontal retrace 7) update cursor position CALL ZPRINT ( FLAG% , CHARACTER$ , ATTRIBUTE% ) FLAG% environment flag = 0 means under basic interpreter = 1 means under compiled basic not /O = 2 means under compiled basic with /O = 3 means under compiled business basic CHARACTER$ character string to write to screen ATTRIBUTE% is the attribute to use with the string. 07 is normal 70 is reverse video 01 is blue other definitions can be found in the technical reference manual or in the basic manual under the color statement * ;______________________________________________________________________________ ; Normal assembly directives CODE SEGMENT PARA PUBLIC 'CODE' ASSUME CS:CODE EXTRN $PUTCPOS:FAR PUBLIC ZPRINT ATTRIBUTE EQU WORD PTR [BP+6] ; address of attribute on stack STRING_DESC EQU WORD PTR [BP+8] ; address of string descriptor on stack ENV_FLAG EQU WORD PTR [BP+10] ; address of environment flag on stack ;______________________________________________________________________________ ZPRINT PROC FAR PUSH BP ; address parameters on stack MOV BP,SP PUSH AX ; save all registers used, PUSH BX PUSH CX PUSH DX PUSH DI PUSH SI PUSH ES ; ... 0) load environment flag showing compiled or interpreted MOV SI,ENV_FLAG ; load address of environment flag MOV SI,WORD PTR [SI] ; load flag itself ; ... 1) load type of crt display from 0000:463 SUB AX,AX ; address system area MOV ES,AX MOV DX,WORD PTR ES:[463h] ; load address of display adapter ADD DX,6 ; address crt status port ; ... 2) load current position from 0000:0450 if compiled ; or from DS:[0056h] if interpreted CMP SI,0 ; check environment flag JNE COMPILED MOV CX,WORD PTR DS:[0056h] ; load from basic space XCHG CL,CH ; basic has it reversed DEC CL ; basic starts count from 1 DEC CH ; instead of zero JMP SHORT CALC_POSITION COMPILED: MOV CX,WORD PTR ES:[450h] ; load current position ; from system space CALC_POSITION: SUB AH,AH ; isolate row number in AX MOV AL,CH MOV BL,80 ; multiply row by 80 bytes per row MUL BL SUB CH,CH ; add in column number ADD AX,CX MOV DI,AX SHL DI,1 ; multiply by 2 to account ; for attribute bytes ; ... 3) load count of characters to write ; only 1 byte if interpreted ; 2 bytes if compiled MOV BX,STRING_DESC ; load address of string descriptor CMP SI,0 ; running compiled? JNE NOT_INTERPRETED MOV CL,BYTE PTR [BX] ; load 1 byte count itself SUB CH,CH INC BX ; bump to string address JMP SHORT LOAD_ADDRESS NOT_INTERPRETED: MOV CX,WORD PTR [BX] ; load 2 byte count itself ADD BX,2 ; bump to string address LOAD_ADDRESS: ; ... 4) load string address ; next two bytes if normal compiled ; three bytes past if in business basic MOV BX,WORD PTR [BX] ; load offset of string CMP SI,3 JNE NOT_BUSINESS ADD BX,3 ; Support BBC String format NOT_BUSINESS: MOV SI,BX ; move offset over ; ... 4a) load the attribute to be used with the string MOV BX,ATTRIBUTE ; load address of the attribute MOV BH,BYTE PTR DS:[BX] ; load the attribute itself ; ... 5) address the screen segment MOV AX,0B000h ; screen seg for monochrome card CMP DX,03DAh ; is this a graphic card? JNE MONOCHROME MOV AX,0B800h ; load screen seg for graphic card MONOCHROME: MOV ES,AX ; address the screen buffer ; ... 6) move string to screen while synchronizing ; with horizontal retrace DISPLAY_LOOP: LODSB ; load next character MOV BL,AL CLI HSYNC_WAIT1: IN AL,DX ; check for horizontal retrace TEST AL,1 JNZ HSYNC_WAIT1 ; wait for retrace HSYNC_WAIT2: IN AL,DX ; check for horizontal retrace TEST AL,1 JZ HSYNC_WAIT2 ; wait for retrace MOV AX,BX STOSW ; store character and attribute STI CMP DI,4000 JL NOT_OFF_PAGE MOV DI,0 ; start at top again NOT_OFF_PAGE: LOOP DISPLAY_LOOP ; repeat cx times ; ... 7) update cursor position MOV AX,DI ; load current position SHR AX,1 ; discount attribute bytes SUB DX,DX ; no sign in this division MOV BX,80 ; divide by nmbr of chars per row DIV BX MOV DH,AL ; store row number ; column number already in DL MOV BH,0 ; assume page 0 MOV AH,2 ; request new position INT 10h XCHG DH,DL ; basic likes it reversed INC DL ; basic starts count from 1 INC DH ; instead of zero MOV SI,ENV_FLAG ; load address of environment flag CMP WORD PTR DS:[SI],0 ; examine flag JE NOT_COMPILED CMP WORD PTR DS:[SI],3 ; business basic? JE RET_TO_BASIC CMP WORD PTR DS:[SI],2 ; compiled with /O? JE WITH_SLASH_O ; FLAG = 1 MOV WORD PTR DS:[87h],DX ; store screen address JMP SHORT RET_TO_BASIC WITH_SLASH_O: ; FLAG = 2 MOV DI,SEG $PUTCPOS ; address put cursor routine MOV ES,DI MOV DI,OFFSET $PUTCPOS MOV DI,WORD PTR ES:[DI+2] ; load offset of cursor storage MOV WORD PTR DS:[DI],DX ; store new cursor position JMP SHORT RET_TO_BASIC NOT_COMPILED: ; FLAG = 0 MOV WORD PTR DS:[0056h],DX ; store new cursor position RET_TO_BASIC: ; FLAG = 3 POP ES POP SI POP DI POP DX POP CX POP BX POP AX POP BP RET 6 ZPRINT ENDP ;______________________________________________________________________________ CODE ENDS END